5 DV=PEEK(186):IFDV<8THENDV=8
6 POKE53272,22:POKE53280,0:POKE53281,0:POKE646,3
7 SYS57812"MOVER C000+",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
10 PRINT"[147]             [209]UICK [205][204] [205]AKER
12 [153]"     FOR LEFT$I(null)ES (null)CRIPTOR AND CHR$RAF(null)TAR
13 PRINT"           1. [200]I[210]ES [211]CRIPTOR
14 [153]"           2. CHR$RAF(null)TAR
16 PRINT"           3. [209]UIT"
18 POKE198,0:WAIT198,1:GETZ$
20 IFZ$="3"THENPRINT"[147]":GOTO30000
22 IFZ$="1"THEN100
24 IFZ$="2"THEN200
26 GOTO18
100 PRINT"       [205]AKING [211]CRIPTOR"
110 INPUT"   [194]EGIN AT";B$:B=VAL(B$)
120 GOSUB300:PRINT"[194]EGINNING AT:"B1"[207][203] ([217]/[206])
130 [151]198,0:[146]198,1:[161]Z$:[139]Z$[178]"N"[167][138]
140 [139]B1[178]50176 [167][153]"(null)SE (null)LEN(null)RIGHT$(null)(null)VAL(null) $C400":[137]30000
142 [139]B1[178]52224 [167][153]"(null)SE (null)LEN(null)RIGHT$(null)(null)VAL(null) $CC00":[137]30000
144 B1$[178]"SCRIPTER $C400+":B2$[178]"SCRIPTER $CC00+":
146 B3$[178]"SCRIPTER "[170]C1$
148 [159]15,DV,15,"S0:"[170]B3$:[160]15
149 [158]49152,B1$,DV,50176,B2$,DV,52224,B3$,DV,B1
150 [153]"LOAD"B3$" LEN(null)(null)(null)(null)VAL(null)VALSTR$":[137]30000
199 [144]
200 [153]"       (null)AKING CHR$RAF(null)TAR"
210 [133]"   PEEKEGIN AT";B$:B[178][197](B$)
220 [141]300:[153]"PEEKEGINNING AT:"B1"(null)(null) ((null)/(null))
230 POKE198,0:WAIT198,1:GETZ$:IFZ$="N"THENRUN
240 IFB1=49152THENPRINT"[213]SE [199][210][193][198][211][212][193][210] [195]000":GOTO30000
242 IFB1=4096THENPRINT"[213]SE [199][210][193][198][211][212][193][210] 1000":GOTO30000
244 B1$="GRAFSTAR C000+":B2$="GRAFSTAR 1000+":B3$="GRAFSTAR "+C1$
248 GOTO148
300 IFLEFT$(B$,1)="$"THEN400
310 IFB<256THENB1=B*256:GOTO600
320 B1=INT(B/256)*256:GOTO600
400 B2$=MID$(B$,2,1):B3$=MID$(B$,3,1)
410 B4$=B2$:GOSUB500:B1=B4*16
420 B4$=B3$:GOSUB500:B1=(B1+B4)*256:GOTO600
500 IFB4$>="0"ANDB4$<="9"THENB4=VAL(B4$):RETURN
510 IFB4$>="A"ANDB4$<="F"THENB4=10+ASC(B4$)-65:RETURN
520 STOP
600 C=B1/256:C1=INT(C/16):C2=C-C1*16
610 IFC1<10THENC1$=CHR$(48+C1):GOTO650
612 C1$=CHR$(65+C1-10)
650 IFC2<10THENC1$=C1$+CHR$(48+C2):GOTO680
660 C1$=C1$+CHR$(64+C2-10)
680 C1$=C1$+"00":RETURN
10000 D=PEEK(186):N$="B.ML MAKER":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
30000 PRINT"            [[208]RESS [193]NY [203]EY]
30010 [151]198,0:[146]198,1:[151]198,0
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]